home *** CD-ROM | disk | FTP | other *** search
/ PC User 2003 January / Disc 3 / Amethyst.iso / live / etc / makedev.d / mem < prev    next >
Encoding:
Text File  |  2002-11-06  |  424 b   |  14 lines
  1. $numdevs{$name} = 9;    $stddevs{$name} = "^(.*)\$";
  2.  
  3. $generate{$name} = sub {
  4.     my @mem_devs = ("kmem:mem", "kmem:kmem", "public:null", "private:port",
  5.             "public:zero", ":", "public:full", "random:random",
  6.             "random:urandom" );
  7.  
  8.     ($permstr, $nodename) = split(":", $mem_devs[$i]);
  9.     if ($nodename ne "") {
  10.     &$MkNod($permstr, $nodename, "c", 1, $i+1);
  11.     };
  12.     $i == 5 && &$SymLink ("/proc/kcore", "core");
  13. };
  14.